Public Class ChatMessage
    Public MessageID As Long
    Public MessageDateTime As Date
    Public MessageText As String
    Public MessageSender As String 
    Public Sub New(ByVal MsgID As Long, ByVal MsgDateTime As Date, ByVal MsgText As String, ByVal MsgSender As String)
        MessageID = MsgID
        MessageDateTime = MsgDateTime
        MessageText = MsgText
        MessageSender = MsgSender
    End Sub
End Class
